home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
tool_inc.zip
/
SYSDATE0.INC
< prev
next >
Wrap
Text File
|
1989-06-02
|
1KB
|
54 lines
(*
* Copyright 1987, 1989 Samuel H. Smith; All rights reserved
*
* This is a component of the ProDoor System.
* Do not distribute modified versions without my permission.
* Do not remove or alter this notice or any other copyright notice.
* If you use this in your own program you must distribute source code.
* Do not use any of this in a commercial product.
*
*)
(*
* sysdate - library to return system date and time (3-1-89)
*
*)
function system_date: string20;
const
month : array [1..12] of string[3]
= ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var
reg: registers;
function strval (i: integer): string2;
begin
strval := chr(((i div 10) mod 10) + ord('0')) +
chr((i mod 10) + ord('0'));
end;
begin
reg.ax := $2a00;
msdos(reg);
system_date := strval(lo(reg.dx)) + '-' +
month[hi(reg.dx)] + '-' +
strval(reg.cx-1900);
end;
function system_time: string10;
var
reg: registers;
hh,mm,ss: string[2];
begin
reg.ax := $2c00;
msdos(reg);
str(hi(reg.cx),hh); if length(hh) = 1 then hh := '0' + hh;
str(lo(reg.cx),mm); if length(mm) = 1 then mm := '0' + mm;
str(hi(reg.dx),ss); if length(ss) = 1 then ss := '0' + ss;
system_time := hh + ':' + mm + ':' + ss;
end;